home *** CD-ROM | disk | FTP | other *** search
/ MacHome 2001 May / MacHome CD (May 2001).iso / mac / Stuff / Software / Home / GEDitCOM 2.9.3 / Formats / Blank Format < prev    next >
Encoding:
Text File  |  2000-08-20  |  14.3 KB  |  927 lines  |  [TEXT/GeDt]
  1. GFVN 6
  2. @@GeDF@@_Unknown_ Printing
  3. ! static text with level and tag
  4. !   or with tag name (if known)
  5. newline
  6. get *name
  7. if
  8.   style static
  9.   text *lev
  10.   text " "
  11.   text *tag
  12.   text " "
  13. else
  14.   style label
  15.   text *it
  16.   text :
  17. endif
  18. set tabw *lev
  19. tabwidth #tabw
  20. justify right
  21.  
  22. ! edit field with value
  23. hskip 5
  24. style editvalue b=3dfield w=-1
  25.  
  26. @@GeDF@@Individual Events
  27. ADOP Adoption
  28. CHRA Adult Christening
  29. BAPM Baptism
  30. BARM Bar Mitzvah
  31. BASM Bas Mitzvah
  32. BIRT Birth
  33. BLES Blessing
  34. BURI Burial
  35. CAST Caste Name
  36. CENS Census
  37. CHR Christening
  38. EVEN Circumcision
  39. CREM Cremation
  40. CONF Confirmation
  41. NMR Count of Marriages
  42. DEAT Death
  43. EVEN Deed
  44. EDUC Education
  45. EMIG Emigration
  46. FCOM First Communion
  47. EVEN Generic Event
  48. GRAD Graduation
  49. EVEN Illness
  50. IMMI Immigration
  51. BAPL LDS Baptism
  52. SLGC LDS Child Sealing
  53. CONL LDS Confirmation
  54. ENDL LDS Endowment
  55. EVEN Military Service
  56. EVEN Miscarriage
  57. EVEN Mission
  58. NAME Name
  59. IDNO National ID Number
  60. NATI National or Tribal Origin
  61. NATU Naturalization
  62. TITL Nobility Type Title
  63. NCHI Number of Children
  64. OCCU Occupation
  65. ORDN Ordination
  66. DSCR Physical Description
  67. PROP Possessions
  68. PROB Probate
  69. RELI Religious Affiliation
  70. RETI Retirement
  71. RESI Residence
  72. SSN Social Security Number
  73. WILL Will
  74. @@GeDF@@Family Events
  75. ANUL Annulment
  76. CENS Census
  77. DIV Divorce
  78. DIVF Divorce Filed
  79. EVEN Generic Event
  80. ENGA Engagement
  81. SLGS LDS Spouse Sealing
  82. MARR Marriage
  83. MARB Marriage Bann
  84. MARC Marriage Contract
  85. MARL Marriage License
  86. MARS Marriage Settlement
  87. NCHI Number of Children
  88. EVEN Separation
  89. @@GeDF@@GEDCOM Tag Names
  90. ABBR Short Title
  91. ADDR Address
  92. ADOP Adoption
  93. ADR1 Address Line 1
  94. ADR2 Address Line 2
  95. AGE Age
  96. AGNC Agency
  97. ALIA Alias
  98. ANCE Gens. of Ancestors
  99. ANCI Ancestor Interest
  100. ANUL Anulment
  101. AFN Ancest. File No.
  102. ASSO Association
  103. AUTH Author
  104. BAPM Baptism
  105. BARM Bar Mitzvah
  106. BASM Bas Mitzvah
  107. BIRT Birth
  108. BLES Blessing
  109. BURI Burial
  110. CAST Caste Name
  111. CAUS Cause
  112. CENS Census
  113. CHAR Character Set
  114. CHIL Child
  115. CHR Christ'ing
  116. CHRA Adult Chr
  117. CITY City
  118. CONF Confirmation
  119. CONC ...concatonated
  120. CONL LDS Confirmation
  121. CONT ...continued
  122. COPR Copyright
  123. CREM Cremation
  124. CTRY Country
  125. DATA Data
  126. DATE Date
  127. DEAT Death
  128. DESC Gens. of Descendents
  129. DESI Descendant Interest
  130. DEST Dest File
  131. DIV Divorce
  132. DIVF Div. Filed
  133. DSCR Physical Descrip.
  134. EMIG Emigration
  135. ENGA Engaged
  136. EVEN Event
  137. EDUC Education
  138. FAMF Family File
  139. FCOM First Communion
  140. FILE File
  141. FORM Form
  142. GIVN Given
  143. GRAD Graduation
  144. HUSB Husband
  145. IDNO Nat. ID No.
  146. IMMI Immigrat'n
  147. LANG Language
  148. MARB Marr. Bann
  149. MARC M. Contract
  150. MARL M. License
  151. MARR Marriage
  152. MARS Settlement
  153. NAME Name
  154. NATI Nationality
  155. NATU Nat'rlized
  156. NCHI No. of Children
  157. NICK Nickname
  158. NMR No. of Marriages
  159. NPFX Prefix
  160. NSFX Suffix
  161. OCCU Occupation
  162. ORDI Ord. Process Flag
  163. ORDN Ordination
  164. PAGE Page
  165. PEDI Pedigree
  166. PHON Phone No.
  167. PLAC Place
  168. POST Postal Code
  169. PROB Probate
  170. PROP Possessions
  171. PUBL Publisher
  172. QUAY Quality
  173. REFN User Ref. No.
  174. RELA Relationship
  175. RELI Religion
  176. REPO Repository
  177. RESI Residence
  178. RESN Restriction
  179. RETI Retirement
  180. RFN Record File No.
  181. RIN Record ID
  182. SOUR Source
  183. SPFX Sur Prefix
  184. SSN Soc. Sec. No.
  185. STAE State
  186. STAT Status
  187. SURN Surname
  188. SUBM Sumitter
  189. TEMP Temple Code
  190. TEXT Text
  191. TITL Title
  192. TIME Time
  193. TYPE Type
  194. VERS Version
  195. WIFE Wife
  196. WILL Will
  197. @@GeDF@@@WindowRects
  198. 9 55 497 467
  199. 41 123 508 424
  200. 119 337 520 594
  201. 60 121 475 414
  202. 33 107 443 470
  203. 63 183 512 338
  204. 98 151 493 399
  205. 67 206 448 434
  206. 57 159 468 266
  207. 51 106 566 469
  208. 4 42 632 483
  209. 21 55 637 474
  210. 85 47 536 395
  211. 51 146 533 538
  212. 33 107 513 424
  213. @@GeDF@@@Tree Preferences
  214. 0 @PREF@ @TRE
  215. 1 @STY Name
  216. 2 @FNT Helvetica
  217. 2 @SZE 9
  218. 2 @FCE Plain
  219. 2 @CLR Color
  220. 3 @RGB 0 0 0
  221. 1 @STY Title
  222. 2 @FNT Helvetica
  223. 2 @SZE 10
  224. 2 @FCE Bold
  225. 2 @CLR Color
  226. 3 @RGB 0 0 0
  227. 1 @CLR Males
  228. 2 @RGB 3276 48495 63568
  229. 1 @CLR Females
  230. 2 @RGB 63568 41942 59636
  231. 1 @CLR Cross Reference
  232. 2 @RGB 49972 4968 8539
  233. 1 @CLR Box Frame
  234. 2 @RGB 18349 18349 18349
  235. 1 @CLR Box Shadow
  236. 2 @RGB 32112 32112 32112
  237. 1 @CLR Lines
  238. 2 @RGB 0 0 0
  239. 1 @CKB Use Color
  240. 2 @CVL Y
  241. 1 @TXT Box Style
  242. 2 @TVL Simple Box
  243. 1 @TXT Name Format
  244. 2 @TVL Full Names
  245. 1 @TXT Life Span
  246. 2 @TVL On Second Line
  247. 1 @TXT Ancestor Format
  248. 2 @TVL Horizontal, Center Aligned
  249. 2 @CKB Reverse (R->L or B->T)
  250. 3 @CVL N
  251. 1 @TXT Descendant Format
  252. 2 @TVL Horizontal, Center Aligned
  253. 2 @CKB Reverse (R->L or B->T)
  254. 3 @CVL N
  255. 1 @NUM Horiz Spacing
  256. 2 @VAL 12
  257. 1 @NUM Vert Spacing
  258. 2 @VAL 10
  259. 1 @NUM Horiz Padding
  260. 2 @VAL 3
  261. 1 @NUM Vert Padding
  262. 2 @VAL 3
  263. 1 @NUM Top Margin
  264. 2 @VAL 5
  265. 1 @NUM Left Margin
  266. 2 @VAL 5
  267. 1 @NUM Max Appearances
  268. 2 @VAL 1
  269. 1 @NUM Line Thickness
  270. 2 @VAL 1
  271. 1 @VRS 6
  272. @@GeDF@@@Index Preferences
  273. 0 @PREF@ @IDX
  274. 1 @STY Index
  275. 2 @FNT Geneva
  276. 2 @SZE 10
  277. 2 @FCE Plain
  278. 2 @CLR Color
  279. 3 @RGB 0 0 0
  280. 1 @CLR Odd Rows
  281. 2 @RGB 58638 58638 58638
  282. 1 @CLR Even Rows
  283. 2 @RGB 58638 58638 58638
  284. 1 @HGL
  285. 2 @CLR Grid Color
  286. 3 @RGB 63488 63488 63488
  287. 2 @CKB Use Grid Lines
  288. 3 @CVL Y
  289. 1 @NUM Row Padding
  290. 2 @VAL 2
  291. 1 @CKB Require Double Clicks
  292. 2 @CVL N
  293. 1 @IPU Clicking Opens
  294. 2 @IPV Y
  295. 1 @IPU Shift-Clicking Opens
  296. 2 @IPV N
  297. 1 @ICL Y
  298. 2 @ILB NAME
  299. 2 @IJT Left
  300. 2 @ITY 0
  301. 1 @ICL Y
  302. 2 @ILB BIRTH
  303. 2 @IJT Center
  304. 2 @ITY 1
  305. 1 @ICL Y
  306. 2 @ILB DEATH
  307. 2 @IJT Center
  308. 2 @ITY 2
  309. 1 @ICL Y
  310. 2 @ILB FATHER
  311. 2 @IEX FAMC.HUSB.NAME
  312. 2 @IJT Left
  313. 1 @ICL Y
  314. 2 @ILB MOTHER
  315. 2 @IEX FAMC.WIFE.NAME
  316. 2 @IJT Left
  317. 1 @VRS 6
  318. @@GeDF@@_Unknown_ Editing
  319. ! static text with level and tag
  320. !   or with tag name (if known)
  321. newline
  322. get *name
  323. if
  324.   style static
  325.   text *lev
  326.   text " "
  327.   text *tag
  328.   text " "
  329. else
  330.   style label
  331.   text *it
  332.   text :
  333. endif
  334. set tabw *lev
  335. tabwidth #tabw
  336. justify right
  337.  
  338. ! edit field with value
  339. hskip 5
  340. style editvalue b=3dfield w=-1
  341.  
  342. @@GeDF@@@Editing Preferences
  343. 0 @PREF@ @EDT
  344. 1 @STY Editing
  345. 2 @FNT Times
  346. 2 @SZE 12
  347. 2 @FCE Plain
  348. 2 @CLR Color
  349. 3 @RGB 0 0 0
  350. 1 @STY Labels
  351. 2 @FNT Times
  352. 2 @SZE 12
  353. 2 @FCE Bold
  354. 2 @CLR Color
  355. 3 @RGB 0 0 0
  356. 1 @STY Static
  357. 2 @FNT Times
  358. 2 @SZE 12
  359. 2 @FCE Plain
  360. 2 @CLR Color
  361. 3 @RGB 0 0 0
  362. 1 @STY Buttons
  363. 2 @FNT Geneva
  364. 2 @SZE 9
  365. 2 @FCE Plain
  366. 2 @CLR Color
  367. 3 @RGB 0 0 0
  368. 1 @CLR Revision
  369. 2 @RGB 65000 0 0
  370. 1 @CLR Background
  371. 2 @RGB 50000 50000 50000
  372. 1 @CLR Field Top
  373. 2 @RGB 30000 30000 30000
  374. 1 @CLR Field Bottom
  375. 2 @RGB 60000 60000 60000
  376. 1 @CLR Button
  377. 2 @RGB 56360 56360 56360
  378. 1 @CLR Button Top
  379. 2 @RGB 60292 60292 60292
  380. 1 @CLR Button Bottom
  381. 2 @RGB 30000 30000 30000
  382. 1 @NUM Line Separation
  383. 2 @VAL 4
  384. 1 @NUM Left Margin
  385. 2 @VAL 4
  386. 1 @NUM Min Edit Lines
  387. 2 @VAL 5
  388. 1 @NUM Max Edit Lines
  389. 2 @VAL 10
  390. 1 @NUM Button Corners
  391. 2 @VAL 8
  392. 1 @VRS 6
  393. @@GeDF@@Custom Long Tags
  394. _FREL
  395. _MREL
  396. _SCHEMA
  397. _MEND
  398. _MSTAT
  399. @@GeDF@@GEDCOM Tag Phrases
  400. NOTE Notes on
  401. @@GeDF@@@ColumnWidths
  402. 174
  403. 63
  404. 63
  405. 155
  406. 151
  407. @@GeDF@@INDI Record Editing
  408. settab 120
  409. settab 140
  410. settab 160
  411. settab 180
  412. @@GeDF@@FAM Record Editing
  413. settab 120
  414. settab 140
  415. settab 160
  416. settab 180
  417. @@GeDF@@HEAD Record Editing
  418. settab 120
  419. settab 140
  420. settab 160
  421. settab 180
  422. @@GeDF@@SUBN Record Editing
  423. settab 120
  424. settab 140
  425. settab 160
  426. settab 180
  427. @@GeDF@@SOUR Record Editing
  428. settab 120
  429. settab 140
  430. settab 160
  431. settab 180
  432. @@GeDF@@NOTE Record Editing
  433. settab 120
  434. settab 140
  435. settab 160
  436. settab 180
  437. style EditText
  438. @@GeDF@@SUBM Record Editing
  439. settab 120
  440. settab 140
  441. settab 160
  442. settab 180
  443. @@GeDF@@OBJE Record Editing
  444. settab 120
  445. settab 140
  446. settab 160
  447. settab 180
  448. @@GeDF@@REPO Record Editing
  449. settab 120
  450. settab 140
  451. settab 160
  452. settab 180
  453. @@GeDF@@CHAN Editing
  454. newline
  455. style label j=right
  456. text Last Changed:
  457. set tabw *lev
  458. tabwidth #tabw
  459.  
  460. hskip 5
  461. style static w=-1
  462. text *DATE
  463. get *DATE.TIME
  464. ifnotempty
  465.   text ", "
  466.   text *it
  467. endif
  468.  
  469. HideExcess
  470. @@GeDF@@SEX Editing
  471. newline
  472. style label j=right
  473. text Sex:
  474. set tabw *lev
  475. tabwidth #tabw
  476.  
  477. hskip 5
  478. style static w=-1
  479. get *valu
  480. if M
  481.   text Male
  482. else
  483.   text Female
  484. endif
  485. @@GeDF@@FAMS Editing
  486. newline
  487. style label j=right
  488. text Family as Spouse:
  489. set tabw *lev
  490. tabwidth #tabw
  491.  
  492. hskip 5
  493. style button w=150 b=3dbutton j=center
  494. text "View Family Record"
  495. link *valu
  496. @@GeDF@@FAMC Editing
  497. newline
  498. style label j=right
  499. text Family as Child:
  500. set tabw *lev
  501. tabwidth #tabw
  502.  
  503. hskip 5
  504. style button w=150 b=3dbutton j=center
  505. text "View Family Record"
  506. link *valu
  507. @@GeDF@@NOTE Editing
  508. newline
  509. style label j=right
  510. text Notes:
  511. set tabw *lev
  512. tabwidth #tabw
  513. hskip 5
  514.  
  515. ! If tag exists then add button to pop
  516. !   up child window with the notes
  517. !   The notes may be embedded or in a separate
  518. !   record
  519. if tagexists
  520.   style button
  521.   get *msg
  522.   if empty
  523.     text View Notes
  524.   else
  525.     text "View "
  526.     text *it
  527.     text " Notes"
  528.   endif
  529.   get *valu
  530.   if validlink
  531.     link *valu
  532.   else
  533.     structlink NOTE
  534.   endif
  535.  
  536. ! If no notes yet, add button to create link to
  537. !   new note record and pop up note window
  538. else
  539.   style button
  540.   get *msg
  541.   if empty
  542.     text Add Notes
  543.   else
  544.     text "Add "
  545.     text *it
  546.     text " Notes"
  547.   endif
  548.   get *rec
  549.   if HEAD
  550.     structlink NOTE
  551.   else
  552.     newlink
  553.   endif
  554. endif
  555. justify center
  556. border 3Dbutton
  557. width 150
  558. @@GeDF@@HUSB Editing
  559. use nLNK Editing
  560. @@GeDF@@WIFE Editing
  561. use nLNK Editing
  562. @@GeDF@@CHIL Editing
  563. use nLNK Editing
  564. @@GeDF@@SUBM Editing
  565. use nLNK Editing
  566. @@GeDF@@ANCI Editing
  567. use nLNK Editing
  568. @@GeDF@@DESI Editing
  569. use nLNK Editing
  570. @@GeDF@@nLNK Editing
  571. ! Create a clickable link to a record that should
  572. ! have a NAME line
  573.  
  574. ! Label
  575. newline
  576. style label j=right
  577. text *name
  578. text :
  579. set tabw *lev
  580. tabwidth #tabw
  581.  
  582. ! Link to another record showing name
  583. !  in that record
  584. hskip 5
  585. style button w=-1
  586. get *valu.NAME
  587. ifnotempty
  588.   text *it
  589.   link *valu
  590.   blue
  591.   face underline
  592. else
  593.   text <unknown>
  594. endif
  595. @@GeDF@@ALIA Editing
  596. use nLNK Editing
  597. @@GeDF@@ASSO Editing
  598. use nLNK Editing
  599. @@GeDF@@SOUR Editing
  600. newline
  601.  
  602. ! SOUR in header means something different
  603. get *rec
  604. if HEAD
  605.   style label j=right
  606.   text System ID:
  607.   set tabw *lev
  608.   tabwidth #tabw
  609.  
  610.   hskip 5
  611.   style editvalue b=3dfield w=-1
  612.  
  613. else
  614.   style label j=right
  615.   text *msg
  616.   text " Source:"
  617.   set tabw *lev
  618.   tabwidth #tabw
  619.   hskip 5
  620.  
  621.   ! If tag exists determine if embedded source
  622.   !    or link to source record
  623.   if tagexists
  624.     style button
  625.     get *valu
  626.  
  627.     ! This section of source link - get button
  628.     !  with name of source
  629.     if validlink
  630.       get *it.ABBR
  631.       ifempty
  632.         get *valu.TITL
  633.         ifempty
  634.           get <Unnamed Source>
  635.         endif
  636.       endif
  637.       text *it
  638.       structlink SOUa
  639.  
  640.     ! Embedded source
  641.     else
  642.       text "<Embedded Source>"
  643.       structlink SOUb
  644.     endif
  645.     face underline
  646.     blue
  647.     width -1
  648.  
  649.   ! Tag does not exists, Button to create link
  650.   !  to source record
  651.   else
  652.     style button j=center b=3dbutton w=150
  653.     text Add Source
  654.     AddLink
  655.   endif
  656.  
  657. endif
  658.  
  659. @@GeDF@@SOUa Record Editing
  660. ! Source is in a separate record (link here
  661. !  in button). Other source information may be
  662. !  in some local fields
  663.  
  664. ! link to the source
  665. settab 100
  666. settab 120
  667. settab 140
  668. settab 160
  669.  
  670. style label j=right
  671. text Source:
  672. set tabw *lev
  673. tabwidth #tabw
  674.  
  675. hskip 5
  676. style button
  677. get *valu
  678. if validlink
  679.   get *it.ABBR
  680.   ifempty
  681.     get *valu.TITL
  682.     ifempty
  683.       get <Unnamed Source>
  684.     endif
  685.   endif
  686.   text *it
  687. endif
  688. AddLink
  689. width -1
  690. face underline
  691. blue
  692. @@GeDF@@SOUb Record Editing
  693. ! Source citation in separate window for embedded
  694. !   citation
  695.  
  696. settab 100
  697. settab 120
  698. settab 140
  699. settab 160
  700.  
  701. style label j=right
  702. text Source:
  703. set tabw *lev
  704. tabwidth #tabw
  705.  
  706. hskip 5
  707. style editcont b=3dfield w=-1
  708. @@GeDF@@eBLK Editing
  709. ! Use an EditCont style cell to edit a block
  710. ! of text than follow the tag in CONT or CONC lines
  711.  
  712. ! Label
  713. newline
  714. style label j=right
  715. text *name
  716. text :
  717. set tabw *lev
  718. tabwidth #tabw
  719.  
  720. ! Edit block of text for a few tags
  721. hskip 5
  722. style editcont b=3dfield w=-1
  723. @@GeDF@@ADDR Editing
  724. use eBLK Editing
  725. @@GeDF@@TEXT Editing
  726. use eBLK Editing
  727. @@GeDF@@AUTH Editing
  728. use eBLK Editing
  729. @@GeDF@@PUBL Editing
  730. use eBLK Editing
  731. @@GeDF@@REPO Editing
  732. use nLNK Editing
  733. @@GeDF@@RESN Editing
  734. newline
  735. style label j=right
  736. text Restriction:
  737. set tabw *lev
  738. tabwidth #tabw
  739.  
  740. hskip 5
  741. style static w=-1
  742. text *valu
  743. @@GeDF@@QUAY Editing
  744. newline
  745. style label j=right
  746. text Quality:
  747. set tabw *lev
  748. tabwidth #tabw
  749.  
  750. ! popup menu
  751. hskip 5
  752. style popupedit w=90 b=shadow j=center s=12 f=plain h=18
  753. font chicago
  754. popupitem Unknown:
  755. popupitem Unreliable:0
  756. popupitem Questionable:1
  757. popupitem Secondary:2
  758. popupitem Primary:3
  759. @@GeDF@@mmOB Record Editing
  760. settab 100
  761. settab 120
  762. settab 140
  763. settab 160
  764.  
  765. ! A simple label
  766. style label w=200
  767. text "Multimedia File Link"
  768.  
  769. ! Button to change the file linked here
  770. set blef #rmgn
  771. sub blef #lmgn
  772. sub blef 100
  773. HMoveTo #blef
  774. style button b=3dbutton w=100 j=center
  775. text "Change File Link"
  776. NewLink
  777.  
  778. ! Field to edit title
  779. show TITL
  780.  
  781. ! show title and form
  782. newline
  783. style label j=right tw=2
  784. text File:
  785.  
  786. hskip 5
  787. style static w=-1
  788. text *FILE
  789.  
  790. newline
  791. style label tw=2 j=right
  792. text Form:
  793.  
  794. hskip 5
  795. style static w=-1
  796. text *FORM
  797.  
  798. endtoolbar
  799.  
  800. ! window for multimedia display or link
  801. style static b=3dfield
  802. setmmform *FORM
  803. showmm *FILE
  804. cellbg 0xFF 0xFF 0xFF
  805. set cwid #picw
  806. add cwid 4
  807. width #cwid
  808. set cwid #pich
  809. add cwid 4
  810. height #cwid
  811.  
  812. HideExcess
  813. ZoomWindow
  814. @@GeDF@@OBJE Editing
  815. NewLine
  816. Style label j=right
  817.  
  818. get *FORM
  819. if url
  820.   Text "Internet:"
  821. else
  822.   Text "Multimedia:"
  823. endif
  824. Set tabw *lev
  825. TabWidth #tabw
  826. HSkip 5
  827.  
  828. ! link to embedded MM
  829. get *valu
  830. if ValidLink
  831.   Style button b=3dbutton w=150 j=center
  832.   Text Encoded Multimedia Object
  833.   Link *valu
  834.  
  835.   ! link to file in separate window
  836. elseif TagExists
  837.  
  838.   get *FORM
  839.   if url
  840.     Style button f=underline s=12
  841.     Text *TITL
  842.     URLLink *FILE
  843.     Blue
  844.     font times
  845.     Set lwid #rmgn
  846.     Sub lwid #lmgn
  847.     Sub lwid #hpos
  848.     Sub lwid 90
  849.     Width #lwid
  850.  
  851.     ! details button
  852.     HSkip 5
  853.     Style button j=center b=3Dbutton w=75
  854.     ifNot more
  855.       Text "New "
  856.     endif
  857.     Text Details
  858.     GroupLink urlL *name
  859.     ShowAll All
  860.     EndGroup
  861.   else
  862.     Style button b=3dbutton w=-1 j=center
  863.     get *TITL
  864.     ifEmpty
  865.       get *FILE
  866.     endif
  867.     Text *it
  868.     Text " ("
  869.     Text *FORM
  870.     Text )
  871.     StructLink mmOB
  872.   endif
  873.  
  874.   ! no structure there - create new file link
  875. else
  876.   Style button b=3dbutton w=150 j=center
  877.   get *msg
  878.   if empty
  879.     Text Add Multimedia
  880.   else
  881.     Text "Add "
  882.     Text *msg
  883.     Text " Multimedia"
  884.   endif
  885.   NewLink
  886. endif
  887. @@GeDF@@BLOB Editing
  888. newline
  889. tab 1
  890. style button b=3dbutton w=120 j=center
  891. text View Encoded Data
  892. structlink vBLB
  893. @@GeDF@@vBLB Record Editing
  894. style EditText
  895. @@GeDF@@urlL Record Editing
  896. style label w=-1
  897. text "Internet Web Site Link"
  898.  
  899. show TITL
  900. show FILE
  901. show FORM
  902. show NOTE "Web Site"
  903.  
  904. ZoomWindow
  905. @@GeDF@@_HME Editing
  906. newline
  907.  
  908. style label tw=1 j=right
  909. text Home Record: 
  910.  
  911. hskip 5
  912. style button f=underline s=12 w=-1
  913. blue
  914. font times
  915. text *valu.NAME
  916. link *valu
  917. @@GeDF@@
  918. @@GeDF@@Current GEDitCOM Format Editing Help
  919. ....7..1..U2PDVw/4nxx.I76y.2PDpE......0F..2.ZE...95zzk...7...U.B
  920. ..c..k....c..........E.9..Y./.....Y............B..c..kE...c.....
  921. .......B..c..kI...c............B..c..k6...c............B..c..kE.
  922. ..c.....p......B..c..k....c.....p......B..c..k2...c...........0k
  923. FKtoNL6UPqshP4ZiNG/cNKlk64ZiNaxmPK3oOKxi64NjQW/oO4Zn62R3F4ZoEoxB
  924. 62NjQapVR0sUKKxp65BcPrJgN0/VP5Bj65/mPrNdN4IUQ4xk9LJk64VZP5.UQrFm
  925. OKtbQm/aPr6UNKlZPKJiR5AUPqMUR4VdQm/dPbFZQaNVMqIUMbYURLBdPaQUR4VZ
  926. 62VZP5.UMqxhPK3iN0/dPW/tPrJm65FZPL/gMLFZQms
  927.